function [K, data, horz, vert]  = loadModel2parts( image, r )
%LOADMODELMAT Summary of this function goes here
%   Detailed explanation goes here

  K = 3;
  lambda = 200;
  invertRlambda = (1/r * lambda);
  Rlambda = (r * lambda);
  inMatHorz = [ 0,Rlambda, Inf ;
                                 Rlambda,0, Inf ;
                                 Inf, Inf, Inf ];
                 
   inMatVert = [ 0,invertRlambda, Inf
                                 Inf,0, Inf;
                                 Inf, Inf, Inf];                  
  
  horz = inMatHorz ;
  vert = inMatVert ;

  % data model
  data = loadData2parts(K, image);

end

